









SKUA 


ARA UNA BUENA CARGA 
EL PROGRAMA EN TU ORDE 
ADOR. COMPRUEBE ¿ 

UE LA CABEZA DE SU J 
LATINA ESTE 
IMPIA Y EL 
ZIMUTH PERFECTA 
IENTE AJUSTADO 
LIMPIELA CON EL 
PRODUCTO 
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LIMPIADOR DE RADIO CASSETTES 


BOLETIN DE PEDIDO 


Nombre yApellidos...*. 

Dirección . 

Ciudad....Telf. 


D.P. 


Deseo recibir...... Limpiadores de cassettes al precio de 420 Ptas. Unidad. 

Forma de pago: □ Talón □ Contrareembolso □ Giro postal 































EDITORIAL 

Muchos se preguntan el porqué de una evolución tan 
rápida como la que ha tenido lugar en nuestro país, hasta 
hace poco tan escasamente informatizado. En este mo¬ 
mento ya existen casi dos millones de ordenadores perso¬ 
nales vendidos. 

Si nos limitamos al ordenador personal, uno de los 
factores más destacados para explicar su enorme difusión 
reside en que la informática se ha convertido, indudable¬ 
mente, en el tercer idioma. Y, en la práctica, el camino más 
directo para iniciarse y familiarizarse en este nuevo idioma 
es a través del juego. Eí juego es previo al aprendizaje. 

Existen pocos medios como el ordenador que, al mis¬ 
mo tiempo, proporcionen entrenamiento, diversión, desa¬ 
rrollo de la actividad mental y puesta al día en eí manejo de 
máquinas, lenguajes y sistemas que son tanto presente 
como futuro. Y, por otra parte, según muchos, este sistema 
de ocio-educación resulta cada día más asequible y barato, 
comparándolo con una película o espectáculo cualquiera. 


Hasta pronto, y que os divirtáis. 
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Editorial. 

Explicación de los programas 
















































































































































































































































































































SOFTSPECTRUM. Comentario de los programas 


1. SUMARIO 

2. EL PUENTE: Imagínate que eres un pastor, deberás pasar el puente que cruza el río junto 
con las cosas que llevas, el lobo, la oveja, y la lechuga, con varias condiciones. Sólo podrás 
pasar a la otra orilla del río con una sola cosa, y tienes que tener en cuenta que el lobo, si tú 
no estás en esa orilla se puede comer a la oveja, o la oveja se puede comer la lechuga. Los 
controles para desplazar al pastor son: q. arriba; a. abajo; p. derecha; o. izquierda, 

¡A ver si lo logras, SUERTE! 

3. EL GORILA: Estás en plena selva y un gorila malvado ha raptado a tu chica, deberás resca¬ 
tarla de sus garras para poder liberarla. Para ello tendrás que coger todas las píldoras 
que encuentres en tu camino, pero cuidado con los barriles que te lanza el gorila para impe¬ 
dirte que la rescates. Una vez recojas todas las píldoras, el gorila morirá pulverizado por fal¬ 
ta de vitaminas. 

q. arriba; a. abajo; p. derecha; o. izquierda. 

ÍNO FALLES! 

4. JONY: Tu afán de aventuras te ha llevado al laberinto de los Crows. Tendrás que conseguir 
llegar ileso hasta la otra puerta del laberinto, esquivando las lapas venosas que te impedirán 
tu objetivo, como han hecho con otros tan osados que han querido intentarlo como tú. si lo 
consigues deberás regresar a la puerta de entrada, para poder comunicar a tus compañeros 
la solución del laberinto. 

q. arriba; a. abajo; p. derecha; o. izquierda. 

¡DIVIERTETE! 

5. MOSQUITOS: Con la llegada del verano aparecen los molestos mosquitos, a los que debe¬ 
rás matar para no ser picado por ellos. Para conseguirlo tendrás que matar el mayor núme¬ 
ro de mosquitos posible; pero cuidado con sus padres, de mayor tamaño, que vienen en 
busca de ellos, y a los que no puedes tocar o morirás envenenado. A medida que cojas más 
mosquitos, aumentará la dificultad del juego. 

q. arriba; a. abajo; p. derecha; o. izquierda. 

6. POSITRON: Estás en tu planeta tierra, y sufres el ataque de los alienígenas del planeta Del¬ 
ta. Sus bombas de positrones deberán ser destruidas por dos canón-láser que posees para 
la defensa del planeta. Para destruir sus bombas guía los dos cañones hasta el punto correc¬ 
to, por el que creas que vas a dar a la bomba, y entonces dispara haciendo coincidir los dos 
rayos. 

q. arriba; a. abajo; m. disparo; p. derecha; o. izquierda. 

7. MAGIC-CAR: Eres el encargado de probar el nuevo prototipo de coche del año 2020. Para 
ello se han diseñado dos carreteras que van simétricas una de otra, y por las que deberás 
llevar las ruedas de tu coche sin salirte de ellas, teniendo en cuenta que lo único que mueves 
son las ruedas delanteras y traseras indistintamente, según el tramo de carretera que te apa¬ 
rezca. Para moverlas utiliza las siguientes teclas: q. saca las ruedas delanteras; w. mete las 
ruedas delanteras; p. saca las ruedas traseras; o. mete las ruedas traseras. 

8. FOTON: Tu misión será destruir todos los haces de electrones que se dirigen hacia el fotón 
que tu controlas. Intenta resistir el mayor tiempo posible, controlando a raya todos los ha¬ 
ces de electrones. Si consigues llegar, a dominarlos por completo, tienes la oportunidad de 
elegir un mayor nivel de dificultad. Las teclas de movimiento son: o. rotar izquierda; p. rotar 
derecha; q. disparo. 

9. CARNIVORA: Eres una planta carnívora, y te encuentras en plena selva virgen. Debido a 
una tremenda oleada de calor la mitad del reino animal ha muerto. A consecuencia de esto 
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te ves obligado únicamente a comer moscas, teniendo en cuenta que la mosca que se te lle¬ 
gue a escapar supondrá para la planta alimento de menos, y a las diez moscas que no hayas 
conseguido comerte morirás por falta de comida. 

Space. eleva la planta carnívora. 

10. GALAX: En plena guerra interestelar, los alienígenas procedentes de la nebulosa Orion han 
decidido invadir la tierra, y para ello sólo posees como defensa un láser con el que de¬ 
berás derribarlos. Ten cuidado porque no resultará tan fácil destruirlos, ellos también te con¬ 
traatacarán disparando sus bombas energéticas, las cuales tendrás que evitar para no ser 
destruido. 

o. izquierda; p. derecha; q. disparo. 

11. DOMINO: Demuestra tu velocidad de cálculo, sumando lo más rápidamente posible los va¬ 
lores de las fichas de dominó que tu Spectrum te mostrará en la pantalla, Ten en cuenta que 
la visualización de las fichas solamente tiene una duración momentánea de unos 5 segun¬ 
dos, durante los cuales deberás memorizar el resultado. Después, el ordenador las hará de¬ 
saparecer y te pedirá la suma total de todos sus tantos. 

¡Seguro que estás hecho un Pitágoras! 

12. CASSETTE; Aunque te parezca mentira, tu ordenador también puede producir música, al 
igual que cualquier cassette que tengas en tu casa. Simplemente tendrás que cambiar de 
emisora en el cassette que te aparece en pantalla y oirás aígunas canciones que seguro que 
te gustarán. Para sintonizar una emisora deberás mover el dial de la radio con las siguientes 
teclas: o. izquierda; p. derecha. 

¡Disfruta de tu música! 

13. SIGNOS; Te encuentras ante un programa de pasatiempos. Si eres un poco paciente podrás 
lograr resolverlo. Te aparecerán distintas igualdades en pantalla; pero sólo sus números, sin 
ningún signo, tú tendrás que ir poniéndolos hasta que se cumpla la igualdad. Una pista que 
te puedo dar es que no repitas en la misma igualdad un mismo signo; así, por ejemplo, siem¬ 
pre aparecerán el + x - / en cada solución que se te pida realizar. 

¡SUERTE! 

14. MAYUSCULAS: Este programa es una recopilación de cuatro rutinas en Código máquina, 
que puedes usar en la depuración de tus programas, y que realizan las siguientes funciones: 

- Las dos primeras rutinas trabajan sobre la sintáxis del programa, transformando las varia¬ 
bles de mayúsculas a minúsculas, o viceversa. 

- Las otras dos rutinas trabajan sobre el texto Basic de los Print e Inputs del programa pro¬ 
piamente dicho, haciendo lo mismo que las anteriores. 

Las rutinas se encuentran ubicadas en la memoria intermedia deja Impresora. Para más de¬ 
talles técnicos, lee atentamente las instrucciones que se detallan en el programa. 

15. VUMETRO: Te encuentras ante un programa que emplea una rutina en código máquina, que 
analiza la entrada EAR de tu ordenador. Tendrás que conectar el EAR de tu cassette con el 
EAR de tu ordenador y poner el cassette en funcionamiento (cualquier cinta de música o 
canción de la radio), y esperar a ver e! resultado en la pantalla. 

¡VERAS COMO TE GUSTA! 
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IDEAS DE SOFT SPECTRUM 

Como todos sabemos, el ordenador lleva un reloj interno que rige todos los procesos. Al 
usuario le es posible acceder a este reloj, mediante una variable del sistema llamada FRAMES. 

FRAMES consta de 3 octetos correspondientes a las direcciones de memoria 23672, 
23673 y 23674, que contienen el contador de cuadros. Este es incrementado cada 2J^ metros. 
Para poner el reloj a cero, basta con POKEar en estas tres direcciones el valor 0 . 

Y para conocer el tiempo en segundos, transcurrido desde el momento de poner las tres di¬ 
recciones a 0, se halla mediante la fórmula: 

T = [(65536 # PEEK 23674} + 256 * PEEK 23673 + PEEK 23672] / 50 
Esperamos que te sea de utilidad. Hasta el próximo número. 




1 IF IHKEYÍO"" THEN *30 TO 9999 

-5 !* 1 

UiÉirinHnHHHnflnMMHHi 

3 PRINT AT 10,10}"PARA LA CINTA." 

4 PAUSE 200 

10 BOROER 6: PAPER 6: OLS 

OC LET LET n=l - 

¿O LET y = 15: LET y-2 -- 







65 LET sí b-15: LET yb=7 

80 LET ai-" 123": LET b«**000" - .• - ■' 

90 LET FIN=8000 

100 FOR 3=0 TO 21: PRINT AT a,b+RND*2J" ????????"5 AT a,b+2+RND*5f".": NEXT a 
110 PRINT AT 14,105" 

12 0 PR INT AT 17,10) ■ - — n . .. . .. ... 
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150 FOR w=S TO á STEP -ll PRINT AT w,5;" “I NEXT w 

16* PRINT AT 5,3}" "iAT 4.25 " " 5 AT 3,3} 11 " i AT 2,4; “ " 5 AT 0,4!" 

■■ } AT ó . ó 3 " “ 

170 FOR h« 8 TO ó STEP -i! PRINT AT w ( 27¡" '! HEXT vi 

ISO PRINT AT 5,25!" "j AT 4,24;" "!AT 3,25}" ";AT 2,265“ "iAT 6, 

2hi " “JAI o, 28! ' 7" - 

- 500 PRINT AT 1 * 1,5 1 11 ?? 'tiVT- l ° , 3 ! u - ?? - l l - j - AT- t¿- ,- ^ ) 1 1 ? " - 

50*5 PRINT AT 13,3 ! " 7 7 " ! AT 18,35"77" 

610 PRINT AT 15, iOJ "??■??????????" 
ó 11 PRINT AT 16, 10} * ?77??7?777??* 

100*0 IF IHKEYi-"q“ THEN LET s=x-i: IF «<10 THEN LET ;t~Í0 

1010 IF THEN LET IF x>20 THEN LET x=20 

10'20* IF INKEY*="o" THEN LET y-y-1: IF y<5 THEN LET y=*-5: 00 SUB 3000 

1030-rr 1NKEYt="p“ THEN LET y=y+i: IF y>27 THEN LET y =*27: 50 STIB~YF0üO~ 

1 04'- TF ATTR 8 -O R —AT-TR — ú^ y-1 - -55 THEN— LE-T-• -x—xb-4—LET—y--yb -- 

1050 IF ATTR í x +1, y) < 48 OR ATTR ! x + 1,y) >55 THEN LET x = xb: LET y = yb 
1200 PRINT AT xb,yb;" “; AT xb.il, ybí - " " i AT y; • ?" j AT x + l.yl 1 *?" 

let 

2000 PRINT AT c,fc+2+RND*53*.“5AT c,b+2{" “ i AT c,b+2+RN£*55"." 

2050 LET c = c +1NT ÍRND*21) 

2060 IF c >21 THEN LET c = i:’ 00 TO 2050 
2070 IF t=T4 OR c = 15 THEN LET c=13 

2*08 0 I F CgJ7 O R c-16 TH E N L ET c-1 8 - 

2900 30 TO 600 

3000 30 SUB 3500: IF ca>Q THEN 30 TO 3200 ,^/^V. 

3010 IF y.«13 AND ai í 1 í ~ " i " THEN LET ai<l>="0": LET ca=l! PRINT AT 13,35" "iAT 1 

4,35" ": 30 TO 3100 

3015 IF x-15 ANO *i(2)="2" THEN LET LET ca=2: PRINT AT 16,35" *1 30 

J O . 3100 ---——-——— 

302 C IF x = 18 ANO a$<3 > ~"3“ THEN LET : LET ca=3: PR I NT AT 18.3;" _ "tAT 1 

9,3;" ": 30 TO 3100 

3100 BEEP 1/50,30: RETURN 

3205 IF ca=i AND a* * 1 * =“0" THEH LET a« ( i } W." 1 "l LET ca=0: PRINT AT 1 3, 3 J "7?" 5 AT i 
4,3;"?7" 

3210 IF ca=3 AND a* i 3? " Ir 0 “ THEN LET aii3>="3": LET ca=0: PRINT AT 18,35"7?"5AT 1 

o -i : n *> '• 

■ > — ' ■ ■ 

322-0- -IF-e-a-2 AND ai i 2 *-=-"-3 "-—THEN -LET a^fr-r-2 ) ■* “ 2 “ : LET c a = 0 : P RI NT AT 16, 3t» ?" 

3230 IF c a>0 THEN RETURH ___ ___ 

3300 BEEP .3,10: RETURN 

3500 IF bi103" THEN LET 2Í="EL LOBO SE COME A LA CABRA": 30 TO fin 

3501 IF bí="023" THEN LET *Í="Lh CABRA SE COME LA LECHUGA": 30 TO FIN 
3550 PETUFN 

4000 GO SUB 4500 

4005 IF es >0 THEN 30 TO 4200 

40TÜ' ~TF~ x = 13 “ATO b«? TT- " I ■ THE5I UET - 5<M i í = “ O ■ : LET ca«i: P RTFlfAT* ^3728^;"^ " ; AT 

-14-^284^ - ü-í — 58— T O 4 i 0 0 -—--------———--— ——- 

4015 IF x=15 AND b«<2>="2" THEN LET b*12)="0": LET ca=2: PRINT AT 16,285" “: 30 

TO 4100 

4020 IF x=18 AMD biiS}-'^" THEN LET bÍi3)="C": LET ca=3: PRINT AT 18,28;“ "5AT 

19,285" ■! SO TO 4100 

4100 BEEP 1/50,30: RETURN 

4205 IF ca=l AND biil)="0" THEN LET biílí=*l“: LET ea=0: PRINT AT 13,28i"??”5AT 
147ZB 5 *??" 

4210 IF- ca=3-AND bü3>-=“-0 ,t —THEN -LrET—bi-f3+=-“3“-^-t-ET--ca*0: PRINT AT' 18, 28; “77*í AT 
19,28; "?? 11 

4220 IF cí-- 2 AND bií2>="0" THEN LET bi!2>=“2": LET ca*0: PRINT AT 16,28;" 7" 

4230 IF ca>0 THEN RETURN 

4240 IF bi= * 123" THEN GO TO 9000 
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4300 BEEP .3,10: RETURM 

4500 IF aí="103" THEH LET z*-"EL LOBO SE COME A LA CABRA": SO TO FIN 
4510 IF aS="023" THEM LET z*=“LA CABRA SE COME LA LECHUGA": SO TO FIN 
4600 RETURM 

7000 INPUT " " : PRINT fci ; 5 TAB 16-LEN xí/2! ií, 7 RETURN 

SOOO SO SUB 7000 

8010 FOR a=Q TO 50: BOREER RND*7: BEEP .01,-10: NEXT a 
3020 BORDER ó: IMPUT *" 

8030 30 TO 9020 

9000 PRINT AT 10,10}“LO CONSEGUISTE" 

9010 FOR s=l TO 4: FOR a= 1 TO 255 STEP 4: OUT 254, a: NEXT a! NEXT s 

9020 PRI NT- -AT -L2^-9 j " OTRA—RARXI4EA -S/N*__'__ 

9030 IF INKE Y»-"s " THENCLS_: RUM 2 

9040 IF INKEY*="r>" THEN RANEOMIZE USR~ O 

9050 SO TO 9030 

9800 LOAE #“fn M J 1 ! "2"SCREENÍ 

9999 SAUE "EL PUENTE"CODE 16384,PEEK 23627+25ó*PE£K 23Ó28-1Ó382: SO TO i 




RESCftTfl R TU CHICR 
DE LAS GARRAS DEL 
HRLUADO GORILA QUE 
TE LANZA BARRILES. 
TECLAS! O s+1 P : 

O:SUBE-SALTO R:# 



1 IF IMKEY»<>"-" 

2 CLS 

3 PRINT AT 10,10 

4 30 SUB 5000 

8 PRINT AT 10727 

9 30 TO 3050- 


THEM SO TO 9999 
;"PARA LA CINTA" 

"PULSA UNA TECLA PARA EMPEZAR 



10 FOR a=l TQ 4: PRINT AT 5*a,0;" bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb NEXT a 

20 FOR a=1 TO 4: FOR b-1 TO 2 

25 PRINT AT a*5,-12+14*b+INT <RNE*14)5 n " 

28 PRINT AT a*5-i,-iZ+14*b+INT ÍRMD*14>}"p" 

30 LET d--12+14#b+INT ÍRND*14): IF a<4 THEN FOR c-a*5 TO a*5+4: PRINT AT c,d 


a": NEXT c 


H 


35 NEXT b: NEXT a 
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40 PRIMT INK 4 }AT 2,12J"bbbbbbbb" 

<55 PRINT AT 0,17}"rs“}AT 1,17}"turo" 

50 FOR a=2 TO 4i PRINT AT SilZI'a": NEXT a 
60 LET .-tt-rl: LET y t-I5: LET d~i: LET ct=" " 

70 LET 1 = 0 

- 80 L ET ~ C O-e-—-------. _ 

100 LET :c = 19: LET y=5: LET ;¡b = xí LET yb-yl LET b*=SCREEN* i x , y } 
ilv IF INKEV*="q" THEN 00 SUB 1000 

120 IF INKEY$-"a" THEN LET di=Q: IF SOPEEN^ < x + 1 > y} <= u a" THEN LET x=x + l 

130 IF INKEY*=«o« THEN LET di=2! LET y=y-l 

140 IF INKEY*="p" THEN LET di ---2: LET y=y+i 

150 POKE 23653,0: IF SCREEN* ÍK+l.y)»* " THEN LET x=x+i: BEEP 1/50,xt POKE 2365 

8 , 8 -------- 


—Ló-0 I F SCREF M*_ í y I. *"p" T HEN LET BEEP 

l -7 !' PRINT hT xb . ybjbí: LET b==SCREENS , y > 

175 IF .-.'‘20 THEN 00 TO 2000 

178 IF bí- “p" THEN BEEP 1/5,20: LET b#-" 11 : LET 00=CO + 1 
180 PRINT AT x,yJ"E" 

185 IF C0>7 THEN LET CO-O: FOR A=0 TO 7: PRINT AT 0,17} INK A}"ij";AT 1,17}"kl" 
? BEEP 1/50,a: PAUSE 10: NEXT a! PR INT AT 0,17;" "¡AT 1,17}“ 

190 LET »b=»: LET yb - y 

- " OP b£=-Tr“ - OR-ba^t JL -OR-b^=- u -tr n —THEN—5©-T-e^2v<77----—-- 

197 IF fcí="M" THEN 50 TO 3000 
200 PRINT AT xt,yt}c* 

210 IF d=3 THEN LET nt»#rt.+l: IF xt>21 THEN LET xt=l: LET yt-15: LET d-lí LET c « 


_ tí ir 

O 


15 LET C*-SOPEEN* ÍKT,YT): IF c*< >• * AMD c*<7"a H AND THEN LET xt=xt-l 

LET jslüHT tRNIH-21____ 


220 IF d =2 THEN LET yt~yt+l 
230 IF d = l THEN LET yt=yt~T 

235 LET d*=SCREENS íxt+i,ytí: IF d«= ,, a" OR dfS=" " THEN LET d=3 
240 LET c*=SCREEHS íxt,yt> 

300 PRINT AT a t,yi}OHRí íiO1+I ) 

310 IF c*="c" THEN 30 TO 2000 

320 LET 1=1+1: If I>3 THEN LET 1=0: PRINT DVER 1| INK 2¡AT 0,20}"no" 

5 00° se— TO M O____ _____ 

1000 IF b S = THEN LET x=x- l: LET di=0_: RETUR N 

1010 IF dioo THEN LET y=y-di; LET x = jí-2: _ BEEP i /5073cT'BEEP 1/50,0 
1015 IF YCO THEN LET Y*0 
1013 IF Y>31 THEN LET Y=31 
1020 RETURN 

2000 PRINT AT x, y; "j"! BEEP 1 , - i O 
2010 CLS 


5720 PR IRT AT _ .r07?T" EST AS ~W UER I Cl ! H " "-'- 

-2-030—FOR- A= O TO 21 .._ __ __ 

2040 PRINT AT A,0} PAPER 1+RND*Ó} O'/ER 1 5 , 

2045 BEEP 1/10,21-A 
2050 NEXT A 
2100 -30 TO 3050 

3000 CLS : FOR A=6 TO O STEP -1 

5005 PRIMT INK A? AT 10,6}" LO CONSEGUISTE !!! " 

3006 PLOT O, OI r-RAW 255,10*»: PLOT 255,0: ERÁU -255, 10*a 

30<03 -PLG-T- BR AU 25 5 , - lOXa: PLOT 555, -4-7-5-:— BRAU- - 555, - 10* a_ 

3.010 FOR B = 1 TO 50 STEP 2 

3020 BEEP 1/100,B 

3030 NEXT B 

3040 NEXT A 
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3050 IF INKEY*=“" THEN *30 TO 3050 

3060 RUN 10 

5000 LET 1=USR 23464 

5Q10 FOR 1=0 TO 21*8 

5020 POKE 65089+1,PEEK í23296+1) __ 

5030 14EXT t- 

50-4-0—BORD ER—2- 

5050 PAPER 7 
5060 INK O 
5070 CLS 
5100 RETURN 

9800 LOAD 1} *3"SCREEN$ 

9909 «je ■ 30 RILA "CODE 16334,PEEK 2 5627 +25ó*PEEK 23628-163821 30_TO 




NfiYUScm^s 


güMGEL GfiRCIfl PELGfl &O 

ESTE PROGRAMA ES UHfl 
RECOPILACION DE 4 
RUTINAS EH CODIGO 
HAOUIHA OUE TRANS- 
FORHAN LAS LETRAS 
DE MAYUSCULAS ft MIN. 



i IF INKEYSO"" THEN GO TO 9999 
10 30 SUB 9000 

20 PRINT AT 11,105"PARA LA CINTA" 

30 PAUSE 200 

40 30 SUB 9000 _ 

50 PRINT ATS,O i"ESTE PROGRAMA, "ES UN'COMPENDIO" ’ ' "DE CUATRO RUTINAS EN C/M QU 
E. TE"-’ ’ “SERAN PE GRAN AYUDA A—LA —HORA—BE-— ’ “ DEPURAR-TUS- PROGRAMAS. " - 

60 PRINT '"CONVIERTEN A LETRAS MAYUSCULASO A MINUSCULAS, LAS CADENAS DE" :; 
"CARACTERES, O EL PROPIO PROGRAMA" 

70 >30 SUB 9100 

SO PRINT AT 8,Oí"RUTINA 1: PROGRAMA EN MINUSCULAS" 

90 PRINT ’’"COMIENZO: 23296“ ’ ’ "LONGITUD: 59 BYTESUSO: RAMDOMIZE USR 23296" 

* 1 "GRABACION? " 1 7 " SAVE ''L-RROG'-CODE 23296,59" . 

TÍO GO SUB 9100 

—ttO PRINT AT 8, 05"RUTINA 2 : PROGRAMA EN MATUSCULAS" 

120 PRINT ''"COMIENZO: 23355.LONGITUD: 59 BYTESUSO: RAHDOMIZE USR 23355" 

' 5 "GRABACION: «» ' “SAVE '“C-PRDS^CODE 23355,59" 

130 GO SUB 9100 

























140 PRINT AT 8,0!"RUTINA 3: CATENAS EN MINUSCULAS" 

150 PFINT ""COMIENZO: 23414"" "LONGITUD: 5? BYTES"’’"USQ: RAMPOMXZE USR 23414" 
’ ’ "SRABAC ION: ° ' T "SAVE '''L-CADENA*'COPE 23355,57" 

160 30 SUB 9100 

170 PRINT AT 8,O?"RUTINA 4: CADENAS EN MAYUSCULAS" 


180 PRINT 


T ÜMT ENZO: 23473 ^ 


TTE3"“ 


“23473 * 


-2 T..“ 5RABAC IOM: n - " "SAVE -*'C-- CADENA *'CODE 23473,59^-. 

190 GO SUB 9100 

200 PRINT AT 8,0}“PULSA:" 

'210 PRINT " n S- GRABAR LAS 4 RUTINAS" 

220 PRINT ’“M- DESTRUIR EL PROGRAMA” 

230 PRINT ’“R- REPETIR LAS INSTRUCCIONES" 

240 IF INKEY*^"s" THEN PRINT AT 21,0!"PULSA RECORD EN EL CASSETTE": SAVE "MAYUS 
-rULAS^'CODE—25 296, 23ár~PRIMT flT 21,0 ta , 

_250 T F TNKEVfes" r, « THPN PPM : RAMD OM IZE USR O _ 

260 IF INKEY*=’V H THEN GO TO 40 
270 GO TO 240 
9000 FOR z = 7 TO 21 
901C PRINT AT 2,0,, 

9020 NEYT 2 
9050 P ETURN 
PICO INPUT "" 

p- lT C-PPr MT " M !" >>> P ULSA -S- P ft RA~OONTlttü A R ~7> - > -“- 


9120 IF INKEY*.< >" a" THEN 30 TD 9120 
9130 BEEP 1/50,30 
9140 INPUT "" 

9150 GO SUB 9000 
9160 PETURN 

Q SCO LOAD m" ; 11 * 14"SCREENU 

9999 SAVE " MAYUSCULAS" COPE 16384, PEEK 23627 +256-SPEEK 23628“16382 



GO TO 1 




A remitirá SOFT-SPECTRUM - C/. Bailén, 20. I.» Izda. 28005-Madrid 


Deseo suscribirme a los 11 n.°* de la revista Soft-Spectrum por sólo 2.500 pts. 


El importa lo hará efectivo: 

O Por giro postal n.°. 

□ Por talón nominativo adjunto. 

□ Contra reembolso a la recepción det primer ejemplar, más gastos de envfo. 


Deseo suscribirme a partir del n.°.(inclusive). 

Nombre y apellidos:..... 

Domicilio:......... 

Ciudad:..Teléfono: 

^ echa: ....Firma:...... 


























u ra 



IMPIDE QUE EL FOTON 
DEL CENTRO 5ER BOH- 
BRRDERDO POR LOS 
HOCES DE ELECTRONES 
TECLR5: 

os wn-itetmism ot * P: * 

«eseoeoesso^ 



i IF INKEY*<>"" THEM ’30 TO 9999 
CLS 

PRINT AT 10,105“PARA LA -INTA' 


1 .1 PAUSE 200 
5 CLS 


— H>- 

1 2 

LET 

LET 

-2-i------- 

I -ó5 

— 


i3 

LET 

y= 19 1 LET = i : LET 

kx~X: LET y y'-291 LET 

n-i: LET e=-b: LET ww=19: LET ee 







sofL _ 



SPECTRUM 



Bailén, 20 - 1° - Izda. 



28005 MADRID 


1 2 





















(1-FACIL 5-ETFICIL) 


=6 

14 LET r=19: LET t=24! LET rr = i: LET tt=24 
20 LET v=0; LET vv=0 

30 PRINT AT 17,4;"ELIGE NIVEL DE DIFICULTAD”;AT 19,5;” 
40 IMPUT w: IF vv>5 0R *'v< 1 THEN BEEP .8,-10: GO TO 40 
42 LET V'>= í 1 C-'J'jTTLC 
50 PAUSE 2C:-GLS-: FAPER 6L BORDER óí INK 1: CLS~ 

100 C IRCLE 123,91,7 

110 PRINT PAPER 7}AT 10,15;” ” 

120 PRINT AT 9,O?"????????????” 

130 PRINT AT 9,19j"77??????????" 

140 PRINT AT 11,0; 11 ????????????" 

15 0 PRINT AT 11.19 1■?????? ??????” 

160 FOR a=0 TO ó: PRINT AT a* 141 *?* I NEXT a 

— 170 FOR 3=0 TO 61 PRINT AT a,16)*7"! NEXT a 

180 FOR a=14 TQ 201 PRINT AT a,14;”?“: NEXT a 
190 FOR a=14 TO 20: PRINT AT a,16?"?": NEXT a 
250 FOR a=0 TO 4? PLOT 136,120+a: DRAW 51,51: NEXT a 

260 FOR a=0 TO 4: PLOT 136,59+a: DRAW 51,-51: NEXT a 

270 FOR a-O TO 4: PLOT 111,120+aí DRAW -51,51: NEXT a 

_280. FOR.-a.--0 TO 4: PLOT 111-,59 + a: DRAW -5i,-5Lí NE-X-T—a-- 

350 PRINT AT 20,0) "???????" 5 AT 20,7) M ?" 

360 PRINT AT 20,24)"???????")AT 20,235"?" 

370 PPINT AT O,Of"???????")AT 0,7¡"? B 
380 PRINT AT O, 24 ¡ "???7?7?" í AT 0,23} 

400 FOR a*O TO 4: PLOT 95-a,104: DRAW -51,51: NEXT a 

401 PRINT AT 2,0)"777777" 

410 FOR a=0 TO 4: PLOT ?5-a,79: DRAW -51,-51: NEXT a 
-411—PRINT AT 18,0)”777777" 

420 FOR a—O TO 4: PLOT 156-a,L04: DRAW 51,51: NEXT a 
■121 PRINT AT 2,25f ‘ , 77??7?" 

430 FOR a=-0 TO 4: PLOT 15ó-a,79: DRAW 51,-51: NEXT a 

431 PRINT AT 18,25;"???77?" 

450 PRINT INK 0;AT 19,1S"??????" 

460 PRINT INK OjAT 1 , 15 "777???“ 

470 PRINT INK 0)AT 1,25;"77????" 

480 FRINT INK OÍ“AT '19,25;^77???7■* 

- 435 PRINT -I-NK 4Í-AT . lVO*-" ? "-j-A-T—49 r O} " ?" }AT 1 -0-,X»}-" 

486 PRINT INK 4;AT 20,15;“7"5AT 0,155"?" 

487 PRINT INK 4;AT 1,30)”7"iAT 10,30í"?“íAT 19,30;"?" 

500 IF INKEYí=" d" THEN LET z= z-1 

510 IF IMKEY6®" p " THEN LET z=z + l 

511 PRINT AT 21,3) "PUNTOS: " ; v 5 AT 21,15! "DIFICULTAD: 

512 INK 2 


515 IF z>Q THEN LET 2=1 
"316 TF ~ 2 »; 1 THEN LET~z=8 


520 

IF 

Z = 1 

THEN 

PRINT 

AT 

10, 

15 ; 

II It 

IF 

INKEYÍ="q" 

THEN 

80 

SUB 

2000 

530 

IF 

z—2 

THEN 

PRINT 

AT 

10, 

15) 

1» ^ II 

IF 

INKEY*="q" 

THEN 

30 

SUB 

2100 

54 0 

IF 

z-3 

THEN 

PRINT 

AT 

10, 

15) 

M rj 1* 

IF 

INKEY*=’q" 

THEN 

30 

SUB 

2200 

550 

IF 

z^4 

THEN 

PRINT 

AT 

10, 

155 

I» ^ I* 

IF 

INKEY¥="q" 

THEN 

60 

SUB 

2300 

560 

IF 

z =5 

THEN 

PRINT 

AT 

10, 

15; 

11 T It 

IF 

lNKEY*="q" 

THEN 

30 

SUB 

2400 

C —i- (“i 

IF 

IF 


THEN 

THEN 

ddtkit 

A T 

t Ti 


■I *2 B 

T C 

tMU'C ya; — " n 11 

TUCM 

AH— 

i & 

7^00 . ___ 

580 

2—0 

z -y 

rKin * 

PRINT 

M t 

AT 

1 L 5 
10, 

1 D y 

15; 

II -p 11 

- JrT — 

IF 

A tMr.c r =t— q 

INKEY*="q" 

i nnri 

THEN 

GO 

SUB 

"C Jw' w 

2 ó 00 

590 

IF 

2-8 

THEN 

PRINT 

AT 

o 

15) 

n ^ ir 

IF 

IMKEY6=■q” 

THEN 

GO 

SUB 

2700 

600 

IF 

x=? 

OR / 

= 10 OR 


15 

OR 

yy^LÓ OR 

wh- i0 OR 

w*10 OR r = 10 

OR t = i5 THEN GO T 


O 4000 

670 LET v»v + l 

900 IF RND>vv THEN GO TO 1000 


1 3 





































990 30 TO 500 

1000 IHK O: PRINT AT y, 151 *?" 

1010 PRINT AT x»15f"?" 

1020 PRINT AT 1 0 .wl"? " 
i030 PRINT AT 10, yy f"?" 

"1040 PRINT ST w,e|"?"- 

1 06 O PPIMT AT r , t i "?“ 

1#0 PRINT AT r-»•, 11 j “ ? " 

1075 INK 3 

1080' POR a=l TO 40: NEXT 3 

1 T 80 LET *x=>ixti: LET yy-yy-l' LET w=w+i: LET e=e+i: LET ww-mw- 1: LET ee-ee+i: L 
ET r = r-1: LET t = t-i 

1790 LET rr=rr+Xí LET tt=tt-l: LfcJ «=x + ll LET y^-y-l 

1900* GO TO 500----______- - —-___ 

2000 BEEP .01,10: PLOT 124,88: DRAW O;-I: FOR a = l TO 201 NEXT a 

2010 OVER 1! PLOT 124,99: DRAW 0,1: OVER O 

2015 LET x»í 
2020 RETURN 

2100 BEEP .01,10: PLOT 129,86: DRAW 1,1: FOR a=l TO 20: NEXT a 

2110 OVER i: PLOT 128,86: DRAW 1 ,11 QVER O____ 

2115 LET rr=i: LET tt=24 
2120 RETURN 

2200 BEEP .01,10: PLOT 131,91: DRAW 1,0: FOR a^l TO 20: NEXT a 

2210 OVER l: PLOT 131,81! DRAW 1,0: OVER O 

2215 LET yy-29 
2220 RETURN 

2300 BEEP .01,10: PLOT 129,85: DRAW 1,-1: FOR a=l TO 20: NEXT a 

2-31-0- OVER 1: PLO T 12 9 , 05 ! D R AW 1, - li OVE R O 

2315 LET r=191 L ET t= 24_____ 

2320 RETURN 

2400 BEEP .01,10: PLOT 124,83: DRAW 0,-1: FOR a=i TO 20í NEXT a 

2410 OVER 11 PLOT 124,83: DRAW 0,-1: OVER O 

2415 LET y-19 
2420 RETURN 

2500 BEEP .01,10: PLOT 118,85: DRAW -1,-1: FOR a=l TO 20: NEXT a 
25TÜ OVER IT PLOT—118,83: DRA W - 1, — 1 T~QVER—Q 

2515 LET. mm= 19:.. LEI_gg=6_____ 

2520 RETURN 

2600 BEEP ,01,10: PLOT 115,91: DRAW -1,0: FOR a=l TO 20! NEXT a 

2610 OVER i: PLOT 115,91: DRAW -1,0: OVER O 

2615 LET xx—i 
2620 RETURN 

2700 BEEP .01 ,10: PLOT 117,97: DRAW -1,1: FOR a=i TO 20: NEXT a 

2710 OVER í: PLOT 117,97: DRAW -1,1: OVER O 

27T5 _ 'ITET w - Ir LET — 

2720 RETURN 

4000 FOR a=l TO 20: BEEP .04,RND*i-20): NEXT a 

4010 FOR s=i TO 3: FOR »=0 TO 255 STEP 4: OUT 254,3! NEXT a: NEXT s: BORDER 6 
4020 PRINT AT 10,10}“TÉ DESTRUYERON"4AT 12,8}"OTRA PARTIDA ÍS/N)" 

4030 IF IMKEY*=*s" THEM CLS : GO TO 5 

4040 IF INKEY«="n lt THEN RANEQNIZE USR Q ___ V 

4050 GO TO 4030 

9800 LO A D "8" SCREENfc 

9999 SAVE "FOTON"CODE 1Ó384,PEEK 23627+25ó#PEEK 23628-16332; GO TO 1 


1 4 













































SIGNOS 




ANTONIO GARCIA DGDQ 



ARHATE DE PACIENCIA 
V PROCURA RESOLVER 
ESTE PASATIEMPO 
MATEMATICO, DONDE 
TENDRAS QUE PONER 
LOS SIGNOS CORRECTOS 



1 IF INKEY^O"" THEN QO TO 9999 

2 -30 SUB SOCO 

4 BORBER 7: PAPER 7: INK 0: OVER 0! CLS 
^ PRINT fi 
ó RESTORE 6000 

■ £0 PR INT ■-3— / 1 + 3*9*6 - 4 

12 PRTWT » _?? ,??? 2 2. ? ? ? ??????7 7-93533^— 

20 PRINT 
25 PRINT 
30 PRINT * 

40 PRINT 
50 PRINT * 
óO PRINT 
70 PRINT 14 

—Sü—PRítíT-- 

90 PRINT “ 

100 PRINT 
UO PRINT ■ 




1¡*¡B 






H: 




2?ó?4???8=ó" 
4?ó?9?3?2 = 7" 




w 




lili 


v ■ i.,v *; :*>, 


mmBREm 

ítataísss^mmm 


H 






8?2?5?7?4 = 8’ 


9?3?2?4?1 = 4" 


2?7?3?9?2 = 1" 

200 PRINT AT 19,3;"COLOCA LOS SIGNOS QUE HAGAN": PRINT AT 20,7»“POSIBLE LA IGUA 
LDA£ M 

240 PAUSE ICO _________ 

250 LET s=8 
30“0 PAUSE “fí^T 
310 PRINT AT 0,01 * 

320 PRINT AT 1,0; - 
330 PRINT AT 2,0;* 

340 PAUSE 50 
400 LET c^= i, + ff + +" 

4Q5 RESTORE 6000 — 

407 LET^ e^5 
410 POR b=1 TO 5 


3*4/ i + 5- 9- 6 




15 

































NEXT a 


‘120 LET bb=3+2*b 
430 READ r* 

*50 IP c*ib > = “c" THEM -30 T0 600 
500 FOR a-8 TO 20 STEP 4: PRINT AT bb,a5*? h : 

550 LET íí- 139-íló*b; : 30 SÜB 3000 
-&QQ -N E X T b 

60-0 IF c^'cii-c tc 11 T HEM SO TD 5000 
ó 15 PRIMT AT i5,5¡ “ SUELVE A INTENTARLO!!!": BEEP 2,-10: PRINT AT 15,0',, 

620 30 TO ‘105 

3000 INK 2: PLOT 40 , x í DRAW 0,18: DRAW 180,0: DRAW 0,-18: DRAW -180,0: PLOT 41, x 

+ 1: DRAW 0,16: DRAM 173,0: ERAW 0,-16.* DRAW -178,0 

3011 LET sí^"! FOR a-B TO 20 STEP 4: PRIMT AT 17,a}“? H : NEXT a 

3015 FOR d = l TO 4 

3020“RKIMT AT 17,al "7": PRINT AT bb,sf" 7~ 

3025 INK O 

3030 INPUT " SIGNO NUMERO "i (d)5 " ? ’¡ LIME a$: IF a$<>"*" AND **<>"-" AND aí< 
and *»<>" + ■’ THEM BEEP 1,-10: 30 tO 3030 
3035 LET sí=s$+af 

3038 BEEP .2,10: PRINT AT 17,s;a*: PRINT AT bb,Eiaí 
3040 LET s=s-M: IF s >2*0 THEM LET s*8 
3050 NEXT d_ 

3060 IF THEN LET c*íbí^"c": 30 TO 6500 

302 0 5 0 SUB 7 0 0 0 

3100 OVER l: PLOT 40, xJ DRAW 0,18: DRAW 130,0: DRAW 0,-18: DRAW -180,0: PLOT 41, 
x +1: DRAW O,ió: DRAW 178,0! DRAW 0,-16! DRAW -178,O 
3550 OVER O 

3560 PRIMT AT bfc+l,5j" “ 

4000 RETURN 

5005 P AUSE—50-- 

5C0PCLS : PRIMT AT 10, 10; "LO CONSEGU IST E"1 AT 12,4 i "LLEGARAS A SEP iim gTMQTgjM " 
5010 PRIMT AT 17,105"OTRA VEZ is/n?" 

5100 FOR a=i TO 255 STEP 2! OUT 254,a: NEXT a 
5110 IF IMKEY$="s" THEM CLS : RUM 4 
5120 IF INKEY*="n* THEN RANDOMIZE USR O 
600O DATA "* m ~»♦*/-" 

6500 BOREER 7 

<^54-0—PR-I-NT—AT— ± 5, 11 i " ACE RTASTE-*— 

6520 PRINT AT bb,2i "OK" ___ 

6530 POR y=l TO 3: FOR z=l TO 35 STEP 2; BORDER z/5: BEEP 1/100,z: NEXT z: NEXT 

/ 

6535 PRINT AT 15,11;" 

6540 GO TO 3100 

7000 PRIMT AT 15,12i* FALLASTE" 

7005 FOR z*i TO 3: FOR >•“-1 TQ 255 STEP 4: OUT 254, >•: NEXT ■/'. NEXT z 

7006 BORDERTr - 

704-0--P-R-I- NT AT bb , 2{ "NO 1 1 - 

"015 PAUSE 50 

7020 PRINT AT 15,12í" 

7040 RETURN 
8000 CLS 

8005 RANDOMIZE USP 23464 

8010 PRIMT AT 10,10} "PARA LA CINTA" _ _ __ 

8020“PAUSE 200 

0 030 CLC 

Si00 RETURN 

9800 LOAD J 1 f " 13"SCREEN* 

®??P SAVE "SIGNOS*CODE 16334,PEEK 23Ó27+25Ó*FEEK 23628-16382! GO TO i 






































PRUEBA EL HUEVO PRO¬ 
TOTIPO DE TODO TE¬ 
RRENO, HRCIEHO QUE 
SUS RUEDOS VAYRH 
POR LOS U : typ 

CARRILES O :■$£> P¡$«* 



1 

2 

5 

20 

30 

—40 

-50- 

60 

yo 

80 

100 

110 

120 


150 
160 
170 
200 
210 
220 


IF INKEYÍ< >“* THEN 30 TO 9?9? 

CLS : PRIHT AT 10,10}“PARA LA CINTA": PAUSE 200 
INK o: BORPER 4; PAPER 4: CLS : PAPER 8 
FOR r =0 TO 21: PRINT PAPER 7}AT r,105 H “ 5 AT r»18¡ 

LET T^=0: LET U=0 

-tE T-S=10: LE T £6 = 1 8- 

LET—at= l 1: LET b- 13— 

LET aa=li: LET bb-18 
LET c-15: LET d=12 
LET cc=15: LET dd = 13 
PRIHT AT 10,155"???* 

PRIMT AT 11, 155 '*???“ 

PRIHT AT 12,155"???" 


NEXT r 


ERIHT AT X 4^L5J- — 

PRIHT AT 15,155"???" 

PRIMT AT 16,155"???“ 

PRINT AT 17,155"???” 

PRIMT AT a,b; M ?-"¡AT a+l,b5"?“" 

PRIMT AT aa,bb5’-?"5AT aa+i,bbi“-?" 

PRIMT AT c,dj"??="5AT c+1,dí*??="5AT c-i,d5"?? 


5AT c+2,d5"?? 


230 
—« 4 O Q ~ 
500 
550 
MAT 
560 
570 

. -ó.ao_ 

650 


?? ,< i AT cc+ 2, ddj 
hü--—— 


6^ 1 


PRIMT AT cc, dd 5 "■=??" 5 AT cc+1,dd»"*??"5AT cc-i,dd; M 

TMPUT PFrittT Mi“ TIEMPO 1 " ¡Tí" - DISTANCI A:— ”1 

IF INKEYf*"q" THEM LET b=fc-i: LET bb=bb+l 

IF IHKEY*-"w" THEM LET b=b+l: LET bb*bb-l: PRINT AT a,b-ii" "iAT a+i,b-15 
aa,fcb+25" “¡AT aa+l,bb+2!“ “ 

IF b>13 THEM LET b=13I LET bb=18 
IF b< 2 THEN LET b=2: LET bb=29 

TF TMKFYts "p " THFM LET._d =±^L 1 LE T dd=d d+ l-- 


IF INKEV*="o" THEN LET d=d+l: LET dd=dd-i: PRIMT AT c-i,d-l;" " 5 AT c,d-l} 


. +1,d-15" "5 AT c+2,d-l; 
. +2,dd +35 ■ " 


» M 
5 AT 


iAT cc+1)dd + 35 


1 7 


";AT cc-l,dd+35" 


“¡AT cc,dd+35 




























¿55 BEEP .G02,10 

óóO IP i V i 2 THEN LET LET -Í!Í=i8 

670 IF d-:i THEM LET d-I: LET ld = 29 
680 LET y -RMB+3-RND-3> 

70-" PRIMT AT C-, s | PAPER 7} " "iAT C',BSi PAPER 7 5" LET s = s + 3 : LET ss = s 

r- -j : LET 1 =ÜSR 23296 
-7- 1 C-IF £ A 1 v—THEM LET 
T 2O IF s<5 THEM LET £=5 
’3C IF ss-18 THEM LET ss=18 
74 O IF ss >23 THEN LET £ = 23 
SCv IF ATTR i a,b)=32 THEM GO TO 2000 
Sil- IF ATTR íc,-i+l}“32 THEN GO TO 2 500 

900 LET T=T+i: LET U-U+5 _ 

910 IF t = 100 THEN G0 _ TO 2000 

L OGO 50 TO 2CO --- 

2000 BEEP . 3, -20’: BEEP .1,-10: BEEP .3,-25 
2010 PRIMT AT 5,12;"GAME O'-'ER“ 

2015 PRIMT AT 3,8; "OTRA PARTIDA (S/M)’ 

2020 POR b= 1 TO 4: FOR a=0 TO 255 STEP A. 05: OUT 254,*»: NEXT a: NEXT b: BORDER 4 
20-40 IF IMKEY*=-"s" THEM OLS : RUM 5 

2050 IF IHKEY*=“n" THEM RANDOMI2E USR O_ 

2060 GO TO 2040 _ _ 

FB’Ü'TXO AT *"i« u i i 5 u 7‘ r 3C REEN^ 

oooo SAVE "MAGIC-CAR" CODE 16384,PEEK 2362 -? + 25ó*PEEK 23628-16382: GO TO 1 


¡¡YA PUEDES COMPLETAR TU COLECCION!! 

DE 


Software Spectrum 


BOLETIN DE PEDIDO PARA NUMEROS ATRASADOS 


i 


Deseo recibir los siguientes números de CORRER al precio de 175 pías, cada uno: 


Números: 


-/- 


/——/——A 




I 

L 


Nombre y apellidos 

Domicilio .. 

Código Postal- 

Fecha —:.- 


Ciudad 


I 


Teléfono ( ) 


El importe lo haré efectivo: 
O Por giro postal n.°.— 


□ Por talón nominativo adjunto. 


remitir a CORRER, C/. Bailén, 20.1 0 izqda. 28005 Madrid 


I 

J 
















































• EL PUENTE 


SUMARIO 


LUNAR TEAM 


• EN LA HUERTA 


• BUSCADORES 


• JUEGO DE PELOTA 


• TRAGAPERRAS 


• LA RELOJERIA 


• DUELO EN LAS ESTRELLAS 


• EL LAZARILLO 


• CUATREROS 


• GLOBOS 


• A COMER 


• LAS LLAVES 


• MART-3X 


i'f.5 vm 

R JH 

■ ja mw \ k ^ jpsm : 

iáifí 





y&j 





1 

* \ 4¡: i 


*1 




L El í > J 











DISPONIBLE PARA ZX SPECTRUM 


Graphis. SA publicidad 




















